-- Paquete_Suma
PACKAGE Paquete_Suma IS
   PROCEDURE Sumador (X : IN OUT Integer; Y: IN Integer);
END Paquete_Suma;


PACKAGE BODY Paquete_Suma IS
   A : Integer;
   B : Integer;
   C : Integer;

   PROCEDURE Sumador (X : IN Integer; Y : IN Integer; Z : OUT Integer) IS
   BEGIN
      Z := X + Y;
      Put ("Z");
   END Sumador;

BEGIN
   A := 1;
   B := 2;
   Sumador (A, B, C);
   Put ("C deberia valer 3");
   Put (C);
END Paquete_Suma;


